www.gusucode.com > 动网论坛Dvbbs v8.3 > 动网论坛Dvbbs v8.3\code\源程序\dispbbs.asp
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="inc/dv_ubbcode.asp"-->
<!--#include file="inc/dv_template.inc"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/code_encrypt.asp"-->
<!--#include file="inc/dv_pageclass.asp"-->
<%
If Dvbbs.BoardID < 1 Then Response.Write "参数错误":Response.End
If Request("page") <> "" And CStr(Dvbbs.CheckNumeric(Request("page"))) <> Request("page") Then
Response.Write "参数错误"
Response.End
End If
If Dvbbs.GroupSetting(2)="0" Then Dvbbs.AddErrcode(31):Dvbbs.ShowErr():response.End
Dim PostUserid, G_TopicTitle, G_IsVote, G_Childs, G_PollID, G_LockTopic, G_Hits, G_Expression,FlashId
Dim G_ItemList, G_ItemsPerPage, G_CurrentPage, G_Pages, G_Moved
Dim G_UserList
Dim G_UserItemQuery
Dim G_Floor
Dim G_CanReply
Dim Dv_ubb
Dim CanRead,TrueMaster,Skin
'以下定义的变量在Dv_ubbcode.asp页面会用到
Dim EmotPath
Dim TotalUsetable
Dim PostBuyUser
Dim UserName
Dim T_GetMoneyType
Dim AnnounceID, ReplyID, Replyid_a, AnnounceID_a, RootID_a
Dim IsThisBoardMaster '确定当前用户是否本版版主，防止下面的操作影响到 Dvbbs.BoardMaster导致出错
IsThisBoardMaster = Dvbbs.BoardMaster
'浏览购买帖权限
CanRead=False
TrueMaster=False
Rem 为兼顾管理菜单显示,对有管理权限的暂时当版主等级处理,为的是显示管理菜单.
If Not Dvbbs.BoardMaster Then
If Dvbbs.UserID > 0 Then
If Dvbbs.GroupSetting(18) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(19) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(20) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(21) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(22) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(23) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(24) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(25) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(26) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(27) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(28) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(29) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(30) = "1" Then
Dvbbs.BoardMaster=True
ElseIf Dvbbs.GroupSetting(31) = "1" Then
Dvbbs.BoardMaster=True
End If
End If
Else
TrueMaster=True
End If
If Dvbbs.BoardMaster Then CanRead=True
Dim authorid
authorid = Dvbbs.CheckNumeric(Request("authorid"))
'初始数据
AnnounceID = 0 '主题ID
G_UserItemQuery = "userid,username,useremail,userpost,usertopic,usersign,usersex,userface,userwidth,userheight,joindate,lastlogin,userlogins,lockuser,userclass,userwealth,userep,usercp,userpower,userdel,userisbest,usertitle,userhidden,usermoney,userticket,titlepic,usergroupid,userim,useremail" '查询用户的字段列表
'0-userid,1-username,2-useremail,3-userpost,4-usertopic,5-usersign,6-usersex,7-userface,8-userwidth,9-userheight,10-joindate,11-lastlogin,12-userlogins,13-lockuser,14-userclass,15-userwealth,16-userep,17-usercp,18-userpower,19-userdel,20-userisbest,21-usertitle,22-userhidden,23-usermoney,24-userticket,25-titlepic,26-UserGroupID,27-userim
Rem 增加勋章插件字段查询，Fish 2010-3-11
if Cint(dvbbs.Forum_Setting(104))=1 then G_UserItemQuery = G_UserItemQuery & ",UserMedal"
if Cint(dvbbs.Forum_Setting(102))=1 then G_UserItemQuery = G_UserItemQuery & ",RLActTimeT"
'--------------------荣誉勋章------------------------
Dim G_MedalData
G_MedalData = GetMedalData
Function GetMedalData()
if Cint(dvbbs.Forum_Setting(104))=0 Then Exit Function
Dim Rs,dTemp
Dvbbs.Name = "Medal"
If Dvbbs.ObjIsEmpty() Then
Set Rs = Dvbbs.Execute("SELECT id,MedalName,MedalPic,MedalDesc FROM Dv_Medal")
If Not Rs.Eof Then
Dvbbs.Value = Rs.GetRows(-1)
End If
Rs.Close : Set Rs = Nothing
End If
GetMedalData = Dvbbs.Value
End Function
'----------------------End----------------------------
LoadTopicInfo
LoadBBSListData
LoadUserListData
Dvbbs.LoadTemplates("dispbbs")
Dvbbs.Nav()
Dvbbs.Head_var 1,"","",""
Response.Write GetForumTextAd(2)
Dvbbs.ActiveOnline()
EmotPath=Split(Dvbbs.Forum_emot,"|||")(0) 'em心情路径
Set Dv_ubb=new Dvbbs_UbbCode
Dv_ubb.PostType=1
TPL_Scan Template.html(0)'Dvbbs.ReadTextFile("dispbbsnew.tpl")'
TPL_Flush
Set Dv_ubb=Nothing
Sub LoadTopicInfo()
AnnounceID = Dvbbs.CheckNumeric(Request("ID"))
If 0=AnnounceID Then Dvbbs.AddErrCode(30):Dvbbs.Showerr()
G_CurrentPage = Dvbbs.CheckNumeric(Request("star"))
If 0=G_CurrentPage Then G_CurrentPage=1
Skin=Request("Skin")
If Skin="" Or Not IsNumeric(Skin) Then Skin=Dvbbs.Board_setting(42)
Dim Rs, SQL, iLockSet, iTopicMode, sMove
sMove = request("move")
iLockSet = Dvbbs.CheckNumeric(Dvbbs.Board_Setting(71))
SQL="Select top 1 TopicID,boardid,title,hits,isvote,child,pollid,LockTopic,PostTable,TopicMode,DateAndTime,Expression,GetMoneyType,PostUserid From Dv_topic where "
If ""=sMove Then
SQL = SQL & ("topicID=" & AnnounceID)
Else
SQL = SQL & "BoardID=" & Dvbbs.BoardID & " and topicID"
If "next"=sMove Then
SQL = SQL & ("<" & AnnounceID & " order by topicID desc")
Else
SQL = SQL & (">" & AnnounceID & " order by topicID")
End If
End If
If Not IsObject(Conn) Then ConnectionDatabase
Set Rs=Dvbbs.iCreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,3
Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
If Rs.eof Or Rs.bof Then
If ""<>sMove Then
Response.Write "<script language=""javascript"">alert(""已经是最后一条主题了！"");history.go(-1);</script>"
Rs.Close
Set Rs=Nothing
Dvbbs.PageEnd
Response.End
Else
Dvbbs.AddErrcode(32)
End If
Else
If CStr(Rs("BoardID"))<>CStr(Dvbbs.BoardID) Then Dvbbs.AddErrCode(29)
G_Hits = Dvbbs.CheckNumeric(Rs("hits"))
Rs("hits") = G_Hits+1
G_LockTopic = Rs("LockTopic")
If 0=G_LockTopic And iLockSet<>0 And Datediff("d", Rs("DateAndTime"),Now())>iLockSet Then
G_LockTopic = 1
Rs("LockTopic") = G_LockTopic
End If
On Error Resume Next
Rs.Update
If Err Then Err.Clear
G_TopicTitle = Rs("title")
G_IsVote = Rs("isvote")
G_Childs = Rs("child")
G_PollID = Rs("pollid")
G_Expression = Rs("Expression")
T_GetMoneyType = Rs("GetMoneyType")
TotalUsetable = Rs("PostTable")
iTopicMode = Rs("topicmode")
AnnounceID = Rs("TopicID")
PostUserid = Rs("PostUserid")
End If
Rs.Close
Set Rs=Nothing
If authorid>0 Then
Dim Rs1
Set rs1=dvbbs.execute("select count(*) from "&TotalUsetable&" where boardid not in(444,777) and boardid="&dvbbs.boardid&" and postuserid="&authorid&" and rootid="&AnnounceID)
G_Childs=Rs1(0):Rs1.Close:Set Rs=Nothing
End If
Dvbbs.Showerr()
G_TopicTitle = Dvbbs.ChkBadWords(G_TopicTitle)
ReplyID = Dvbbs.CheckNumeric(Request("ReplyID"))
If 0=ReplyID Then ReplyID=AnnounceID
If iTopicMode<>1 Then G_TopicTitle=replace(G_TopicTitle, "<", "<")
Dvbbs.Stats = G_TopicTitle
G_Childs = G_Childs+1
Select Case iTopicMode
Case 2 G_TopicTitle = "<font color=""red"">"&G_TopicTitle&"</font>"
Case 3 G_TopicTitle = "<font color=""blue"">"&G_TopicTitle&"</font>"
Case 4 G_TopicTitle = "<font color=""green"">"&G_TopicTitle&"</font>"
Case Else
End Select
End Sub
Sub LoadBBSListData()
On Error Resume next
G_ItemsPerPage = Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27))
G_Pages = G_Childs \ G_ItemsPerPage
If (G_Childs Mod G_ItemsPerPage)<>0 Then G_Pages = G_Pages + 1
If G_Pages<=0 Then G_Pages = 1
If G_CurrentPage > G_Pages Then G_CurrentPage = G_Pages
G_Moved = G_ItemsPerPage*(G_CurrentPage-1)
Dim Rs, SQL, Cmd,sqlfields,sqlfieldswhere,authorwhere
sqlfields="AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,FlashId"
If authorid>0 Then
authorwhere=" and postuserid="&authorid
Else
authorwhere=""
End If
If 1=Skin Then
If ReplyID=AnnounceID Then
sqlfieldswhere=" RootID="& AnnounceID &" and Boardid="& Dvbbs.Boardid&authorwhere
SQL="Select Top 1 "&sqlfields&" From "& TotalUseTable & " where " &sqlfieldswhere
Else
sqlfieldswhere=" AnnounceID="&ReplyID&" and Boardid="& Dvbbs.Boardid&authorwhere
SQL="Select "&sqlfields&" From "& TotalUseTable &" where "& sqlfieldswhere
End If
Else
sqlfieldswhere=" RootID="& ReplyID &" and Boardid="& Dvbbs.Boardid&authorwhere
SQL="Select "&sqlfields&" From "& TotalUsetable & " where "& sqlfieldswhere&" Order By Announceid" '0-AnnounceID,1-UserName,2-Topic,3-dateandtime,4-body,5-Expression,6-ip,7-RootID,8-signflag,9-isbest,10-PostUserid,11-layer,12-isagree,13-GetMoneyType,14-IsUpload,15-Ubblist,16-LockTopic,17-GetMoney,18-UseTools,19-PostBuyUser,20-ParentID
End If
'response.Write sqlfieldswhere
If IsSqlDataBase=1 And IsBuss=1 And Skin=0 Then
Dim mypage
Set mypage=new Pager
'If Not IsObject(Conn) Then ConnectionDatabase
mypage.getconn=conn '得到数据库连接
mypage.pagesize=G_ItemsPerPage '定义分页每一页的记录数
mypage.TableName=TotalUsetable '要查询的表名
mypage.Tablezd=sqlfields
mypage.KeyName="announceid"
mypage.OrderType=0
mypage.PageWhere=sqlfieldswhere
mypage.GetStyle =1
Set Rs=mypage.getrs()
If Not Rs.EoF Then
G_ItemList=Rs.GetRows(-1)
Else
Rs.close():Set Rs=Nothing:Dvbbs.AddErrCode(29)
End If
Rs.close():Set Rs=Nothing
'Set Cmd = Nothing
Else
Set Rs=Dvbbs.Execute(SQL)
If Rs.eof Or Rs.bof Then
Dvbbs.AddErrCode(29)
Else
On Error Resume Next
If 1<>Skin Then Rs.Move(G_Moved)
If Err Then Err.clear
If Not Rs.eof Then
G_ItemList = Rs.GetRows(G_ItemsPerPage)
Else
Dvbbs.AddErrCode(29)
End If
End If
Rs.Close
Set Rs=Nothing
End If
Dvbbs.Showerr()
G_CanReply=False '是否允许回复
If Not Dvbbs.Board_Setting(0)="1" And Cint(G_LockTopic)=0 Then
If Dvbbs.GroupSetting(5)="1" Then
G_CanReply=True
ElseIf Dvbbs.UserID = PostUserid and Dvbbs.GroupSetting(4)="1" Then
G_CanReply=True
ElseIf Dvbbs.master Or Dvbbs.superboardmaster Or Dvbbs.boardmaster Then
G_CanReply=True
End If
End If
End Sub
Sub LoadUserListData()
If IsArray(G_UserList) Or Not IsArray(G_ItemList) Then Exit Sub
Dim Rs, i, j, iTempUserID, iUbd, sUserIDList
iUbd = UBound(G_ItemList,2)
sUserIDList = G_ItemList(10, 0)
For i=0 To iUbd
sUserIDList = sUserIDList & ("," & G_ItemList(10,i))
Next
Set Rs = Dvbbs.Execute("Select " & G_UserItemQuery & " From dv_user Where UserID IN ("& sUserIDList &")")
If Rs.Eof Or Rs.Bof Then
'全部是客人
Else
G_UserList = Rs.GetRows(-1)
End If
Rs.Close
Set Rs = Nothing
'处理用户资料
For i=0 To iUbd
iTempUserID = G_ItemList(10, i)
G_ItemList(10, i) = 0 '初始为游客
If IsArray(G_UserList) Then
For j=UBound(G_UserList,2) To 0 Step -1
If G_UserList(0, j)=iTempUserID Then
G_ItemList(10, i) = j+1 '这里加了1，实际用时要减1
Exit For
End If
Next
End If
Next
End Sub
Sub LoadAndParseVote(sTemplate)
Dim Rs,aVote,s,a1,a2,u1,u2,i,j,t,sLoop
Dim votetype,votchilds,votchilds_title,votchilds_ep
Set Rs=Dvbbs.Execute("Select voteid,vote,votenum,votetype,lockvote,voters,timeout,uarticle,uwealth,uep,ucp,upower From Dv_Vote Where VoteID="&G_PollID)
If Not Rs.eof Then
aVote=Rs.GetRows(-1)
Else
Exit Sub
End If
Set Rs=Nothing
s=sTemplate
s=Replace(s,"{$showvote.voteid}",aVote(0,0))
votetype=aVote(3,0)
s=Replace(s,"{$showvote.lockvote}",aVote(4,0))
s=Replace(s,"{$showvote.voters}",aVote(5,0))
s=Replace(s,"{$showvote.timeout}",aVote(6,0))
s=Replace(s,"{$showvote.uarticle}",aVote(7,0))
s=Replace(s,"{$showvote.uwealth}",aVote(8,0))
s=Replace(s,"{$showvote.uep}",aVote(9,0))
s=Replace(s,"{$showvote.ucp}",aVote(10,0))
s=Replace(s,"{$showvote.upower}",aVote(11,0))
If 0=Dvbbs.userid Then
s=Replace(s,"{$showvote.input}","您还未登录，不能参与。")
Else
If datediff("d",aVote(6,0),Now()) > 0 Then
s=Replace(s,"{$showvote.input}","已过期，不能参与。")
Else
If G_LockTopic Then
s=Replace(s,"{$showvote.input}","相关主题已经锁定，不能参与。")
Else
If Not Dvbbs.Execute("Select * From Dv_voteuser Where voteid="& G_PollID &" And userid="& Dvbbs.userid).EOF Then
s=Replace(s,"{$showvote.input}","您已经投过票了，看结果吧！")
Else
s=Replace(s,"{$showvote.input}","<input type=""submit"" name=""VoteSubmit"" value=""投 票"" style=""margin:5px;""/>")
End If
End If
End If
End If
a1=Split(Dvbbs.ChkBadWords(aVote(1,0)),"|")
a2=Split(aVote(2,0),"|")
u1=UBound(a1)
t=0
For i=0 To u1
sLoop=sLoop&"<tr>"
votchilds = Split(a1(i),"@@")
If votetype = 2 and Ubound(votchilds)>=3 Then
sLoop=sLoop&("<td width=""40%"">"&(i+1)&". "&votchilds(0)&"</td>") 'title
votchilds_title = Split(votchilds(2),"$$")
votchilds_ep = Split(votchilds(3),"$$")
sLoop=sLoop&"<td>"
For j=0 To UBound(votchilds_title)
If ""<>votchilds_title(j) Then
Select Case votchilds(1)
Case "1"
sLoop=sLoop&" <input type=""checkbox"" name=""postvote_"&i&""" value="""&j&""" class=""chkbox""/>"&votchilds_title(j)&" "
Case "2"
sLoop=sLoop&" 回答：<textarea name=""postvote_"&i&""" style=""width:70%;height:80px;""></textarea> "
Case Else
sLoop=sLoop&" <input type=""radio"" name=""postvote_"&i&""" value="""&j&""" style=""border:none;""/>"&votchilds_title(j)&" "
End Select
End If
Next
sLoop=sLoop&"</td>"
Else
sLoop=sLoop&"<td width=""20%"">"
If 0=aVote(3,0) Then
sLoop=sLoop&"<input type=""radio"" name=""postvote"" value="""&i&""" style=""border:none;""/>"
Else
sLoop=sLoop&"<input type=""checkbox"" name=""postvote_"&i&""" value="""&i&""" style=""border:none;""/>"
End If
sLoop=sLoop&(a1(i)&"</td><td width=""80%"" valign=""top"">") 'title
sLoop=sLoop&"<script language=""javascript"">try{ShowVoteList("&a2(i)&",{$total});}catch(e){}</script>"
sLoop=sLoop&("</td>")
t=t+a2(i)
End If
sLoop=sLoop&"</tr>"
Next
sLoop=Replace(sLoop,"{$total}",t)
s=Replace(s,"{$showvote.list}",sLoop)
TPL_Scan s
End Sub
Sub ParsePageNode(sToken)
Dim a,i,s
Select Case sToken
Case "topicid"
TPL_Echo AnnounceID
Case "announceid"
TPL_Echo G_ItemList(0,0)
Case "topic"
TPL_Echo G_TopicTitle
Case "hits"
TPL_Echo G_Hits
Case "currentpage"
TPL_Echo G_CurrentPage
Case "boardpage"
TPL_Echo Dvbbs.CheckNumeric(request("page"))
Case "bbstable"
TPL_Echo TotalUsetable
Case "postfacelist"
a=split(Dvbbs.Forum_PostFace,"|||")
s=s&"<div style=""float:left;""><input id=""face_1_gif"" type=""radio"" value=""face1.gif"" name=""Expression"" checked=""checked"" style=""border:none"" /><img src=""Skins/default/topicface/face1.gif"" alt="""" /></div>"
For i=2 To UBound(a)-1
s=s&"<div style=""float:left;""><input type=""radio"" value=""face"&i&".gif"" name=""Expression"" style=""border:none"" /><img src="""&a(0)&"face"&i&".gif"" alt="""" /></div>"
If 1=(i-2) Mod 3 Then s=s&"<br style=""clear:both"" />"
Next
TPL_Echo s
Case "modelink"
If 1=Skin Then
TPL_Echo "<a href=""dispbbs.asp?BoardID="&Dvbbs.Boardid&"&ID="&AnnounceID&"&skin=0"">平板</a>"
Else
TPL_Echo "<a href=""dispbbs.asp?BoardID="&Dvbbs.Boardid&"&replyID="&G_ItemList(0,0)&"&ID="&AnnounceID&"&skin=1"">树形</a>"
End If
Case "treemode"
If 1=Skin Then TPL_Echo "<div id=""postlist"" style=""margin-top : 10px; margin-bottom : 10px; ""> </div><span id=""showpagelist""></span><iframe style=""border:0px;width:0px;height:0px;"" src=""loadtree.asp?boardid="&Dvbbs.Boardid&"&star="&G_CurrentPage&"&replyid="&ReplyID&"&id="&AnnounceID&"&openid="&ReplyID&""" name=""hiddenframe""></iframe>"
Case "topicadminlist"
s=""
If Dvbbs.Boardmaster Then
If 1=T_GetMoneyType Then
s=s& " <a href=""BuyPost.asp?Action=Close&BoardID="&Dvbbs.boardid&"&PostTable="&TotalUseTable&"&ID="&AnnounceID&"&ReplyID="&ReplyID&""" title=""结帖管理"">结帖管理</a><br />"
End If
s=s& " <a href=""admin_postings.asp?action=专题管理&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""专题管理"">专题管理</a><br />"
If 1=G_LockTopic Then
s=s& " <a href=""admin_postings.asp?action=解锁&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""将本主题解开锁定"">解除锁定</a><br />"
Else
s=s& " <a href=""admin_postings.asp?action=锁定&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""锁定本主题"">锁定帖子</a><br />"
End If
s=s& " <a href=""admin_postings.asp?action=提升&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""将本主题提升到帖子列表最前面"">提升帖子</a><br />"
s=s& " <a href=""admin_postings.asp?action=沉底&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""将本主题放到帖子列表较靠后位置"">沉底帖子</a><br />"
s=s& " <a href=""admin_postings.asp?action=跟帖管理&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""批量删除本主题的跟帖"">跟帖管理</a><br />"
s=s& " <a href=""admin_postings.asp?action=删除主题&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""注意：本操作将删除本主题所有帖子，不能恢复"">删除帖子</a><br />"
s=s& " <a href=""admin_postings.asp?action=移动&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&"&replyID="&ReplyID&""" title=""移动主题"">移动帖子</a><br />"
s=s& " <a href=""admin_postings.asp?action=设置固顶&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""将本主题设置固顶"">设置固顶</a><br />"
TPL_Echo "<div class=""m_li_top"" style=""display:inline;"" onmouseover=""showmenu1('Menu_0',0);""><a href=""#"">主题管理</a>"
TPL_Echo " <div class=""submenu submunu_popup"" id=""Menu_0"" onmouseout=""hidemenu1()"">"
If ""<>s Then TPL_Echo s
TPL_Echo " </div></div>"
ElseIf IsSelfPost() Then
If 1=T_GetMoneyType Then
s=s& " <a href=""BuyPost.asp?Action=Close&BoardID="&Dvbbs.boardid&"&PostTable="&TotalUseTable&"&ID="&AnnounceID&"&ReplyID="&ReplyID&""" title=""结帖管理"">结帖管理</a><br />"
End If
If "1"=Dvbbs.GroupSetting(13) Then
If 1=G_LockTopic Then
s=s& " <a href=""admin_postings.asp?action=解锁&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""将本主题解开锁定"">解除锁定</a><br />"
Else
s=s& " <a href=""admin_postings.asp?action=锁定&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""锁定本主题"">锁定帖子</a><br />"
End If
End If
If "1"=Dvbbs.GroupSetting(11) Then
s=s& "<a href=""admin_postings.asp?action=跟帖管理&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""批量删除本主题的跟帖"">跟帖管理</a><br />"
s=s& "<a href=""admin_postings.asp?action=删除主题&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&""" title=""注意：本操作将删除本主题所有帖子，不能恢复"">删除帖子</a><br />"
End If
If "1"=Dvbbs.GroupSetting(12) Then
s=s& "<a href=""admin_postings.asp?action=移动&BoardID="&Dvbbs.boardid&"&ID="&AnnounceID&"&replyID="&ReplyID&""" title=""移动主题"">移动帖子</a><br />"
End If
If ""<>s Then
TPL_Echo "<div class=""m_li_top"" style=""display:inline;"" onmouseover=""showmenu1('Menu_0',0);""><a href=""jascript:;"">主题管理</a><div class=""submenu submunu_popup"" id=""Menu_0"" onmouseout=""hidemenu1()"">"
TPL_Echo s
TPL_Echo "</div></div>"
End If
End If
Case Else
End Select
End Sub
Sub ParseUserNode(sToken)
Dim i, p, s, s2, bShowAll
i = G_ItemList(10, G_Floor)
bShowAll = False
If i>0 Then bShowAll = 2<>G_ItemList(8, G_Floor) Or Dvbbs.BoardMaster Or Dvbbs.UserID=G_UserList(0, G_ItemList(10, G_Floor)-1)
' 非客人帖 而且 (非匿名帖 或者 是管理员 或者 是自己)
If bShowAll Then
Select Case sToken
Case "userid" TPL_Echo G_UserList(0, i-1)
Case "username" TPL_Echo UserName
Case "richname"
s = G_UserList(26, i-1)
Select Case s
'Case 0 s2= Dvbbs.mainsetting(9)
Case 1 s2= Dvbbs.mainsetting(9)
Case 2 s2= Dvbbs.mainsetting(7)
Case 3 s2= Dvbbs.mainsetting(7)
Case 4 s2= Dvbbs.mainsetting(5)
Case 5 s2= "gray"
Case 6 s2= "gray"
Case 7 s2= Dvbbs.mainsetting(5)
Case 8 s2= Dvbbs.mainsetting(11)
Case Else s2= Dvbbs.mainsetting(5)
End Select
s=Split(Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& G_UserList(26, i-1) &"']/@groupsetting").text,",")(58),"§")
TPL_Echo "<span style=""width:105px;filter:glow(color='"&s2&"',strength='2');"">"&(s(0)&replace(UserName,chr(255),"")&s(1))
If 2=G_ItemList(8, G_Floor) Then TPL_Echo " [已匿名]"
TPL_Echo "</span>"
Case "useremail" TPL_Echo G_UserList(2, i-1)
Case "userpost" TPL_Echo G_UserList(3, i-1)
Case "usertopic" TPL_Echo G_UserList(4, i-1)
Case "usersign"
s = G_UserList(5, i-1)
p = G_UserList(26, i-1)
If ""<>s And 1=G_ItemList(8, G_Floor) And Dvbbs.forum_setting(42)="1" Then
Set s2 = Application(Dvbbs.CacheName &"_groupsetting")
If Not s2 Is Nothing Then
If Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& p &"']/@groupsetting") Is Nothing Then p = 7
If Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& p &"']/@groupsetting").text,",")(55) Then TPL_Echo "<img src=""images/sigline.gif"" alt="""" /><br />" & Dvbbs.ChkBadWords(Dv_ubb.Dv_SignUbbCode(s, p))
End If
Set s2 = Nothing
End If
Case "usersex"
s2=G_UserList(11, i-1)
If "2"=G_UserList(22, i-1) Then
If IsDate(s2) Then
If DateDiff("s",s2,Now())>(cCur(dvbbs.Forum_Setting(8))*60) Then
G_UserList(22, i-1)="1"
End If
Else
G_UserList(22, i-1)="1"
End If
Else
G_UserList(22, i-1)="1"
End If
s = G_UserList(6, i-1)
If "1"=G_UserList(22, i-1) Then
Select Case s
Case "1"
TPL_Echo "<img src=""Skins/Default/ofMale.gif"" alt=""帅哥哟，离线，有人找我吗？"" />"
Case Else
TPL_Echo "<img src=""Skins/Default/ofFeMale.gif"" alt=""美女呀，离线，留言给我吧！"" />"
End Select
Else
Select Case s
Case "1"
TPL_Echo "<img src=""Skins/Default/Male.gif"" alt=""帅哥，在线噢！"" />"
Case Else
TPL_Echo "<img src=""Skins/Default/FeMale.gif"" alt=""美女呀，在线，快来找我吧！"" />"
End Select
End If
Case "userface"
s2 = s2 & "<img"
s2 = s2 & (" width="""&G_UserList(8, i-1)&"""")
s2 = s2 & (" height="""&G_UserList(9, i-1)&"""")
s2 = s2 & " src="""
s = Dv_FilterJS(G_UserList(7, i-1))
p = InStr(s, "|")
If p>0 Then
s2 = s2 & Mid(s, p+1)
s = Left(s, p-1)
Else
s2 = s2 & s
s = "0"
End If
s2 = s2 & """ alt="""" />"
If "0"<>s Then s2 = s2 & ("<br/><div><a href=""javascript:DispMagicEmot('"&s&"',350,500)"">查看魔法头像</a></div>")
TPL_Echo s2
Case "joindate" TPL_Echo G_UserList(10, i-1)
Case "lastlogin" TPL_Echo G_UserList(11, i-1)
Case "userlogins" TPL_Echo G_UserList(12, i-1)
Case "lockuser" TPL_Echo G_UserList(13, i-1)
Case "userclass" TPL_Echo G_UserList(14, i-1)
Case "userwealth" TPL_Echo G_UserList(15, i-1)
Case "userep" TPL_Echo G_UserList(16, i-1)
Case "usercp" TPL_Echo G_UserList(17, i-1)
Case "userpower"
s = G_UserList(18, i-1)
If "0"<>s Then
TPL_Echo "<b><font color=""red"">" & s & "</font></b>"
Else
TPL_Echo s
End If
Case "userdel" TPL_Echo G_UserList(19, i-1)
Case "userisbest" TPL_Echo G_UserList(20, i-1)
Case "usertitle" TPL_Echo G_UserList(21, i-1)
Case "usermoney" TPL_Echo G_UserList(23, i-1)
Case "userticket" TPL_Echo G_UserList(24, i-1)
Case "titlepic"
s2 = s2 & "<img src=""skins/Default/star/"
s2 = s2 & G_UserList(25, i-1)
s2 = s2 & """ alt="""" />"
TPL_Echo s2
Case "qq"
If Not IsArray(G_UserList(27, i-1)) Then G_UserList(27, i-1)=Split(G_UserList(27, i-1), "|||")
TPL_Echo G_UserList(27, i-1)(1)
Case "link_qq"
If Not IsArray(G_UserList(27, i-1)) Then G_UserList(27, i-1)=Split(G_UserList(27, i-1), "|||")
If ""<>G_UserList(27, i-1)(1) Then TPL_Echo " | <a href=""tencent://message/?uin="&G_UserList(27, i-1)(1)&""" title=""点击发送QQ消息给"&UserName&""">QQ</a>"
Case "email"
TPL_Echo G_UserList(28, i-1)
Case "homepage"
If Not IsArray(G_UserList(27, i-1)) Then G_UserList(27, i-1)=Split(G_UserList(27, i-1), "|||")
TPL_Echo G_UserList(27, i-1)(0)
Case "uc"
If Not IsArray(G_UserList(27, i-1)) Then G_UserList(27, i-1)=Split(G_UserList(27, i-1), "|||")
TPL_Echo G_UserList(27, i-1)(6)
Rem 以下为荣誉勋章标签，fish 2010-2-19
Case "medal"
if Cint(dvbbs.Forum_Setting(104))=1 then
Dim j
If G_UserList(29, i-1) <> "" Then
s = Split(G_UserList(29, i-1),",")
For i = 0 To Ubound(s)
For j = 0 To Ubound(G_MedalData,2)
If Clng(s(i)) = G_MedalData(0,j) Then
s2 = s2 & "<img src='dv_plus/medal/images/"&G_MedalData(2,j)&"' alt='"&G_MedalData(1,j)&"' /> "
Exit For
End If
Next
Next
End If
TPL_Echo s2
End If
End Select
Else '游客 或 匿名帖
Select Case sToken
Case "username"
s = Split(G_ItemList(6, G_Floor), ".")
If i>0 Then
s2 = s2 & "匿名"
Else
s2 = s2 & "客人"
End If
s2 = s2 & ("(" & s(0) & "." & s(1) & ".*.*)")
TPL_Echo s2
Case "richname"
s = Split(G_ItemList(6, G_Floor), ".")
If i>0 Then
s2 = s2 & "匿名"
Else
s2 = s2 & "客人"
End If
s2 = s2 & ("(" & s(0) & "." & s(1) & ".*.*)")
s=Split(Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='7']/@groupsetting").text,",")(58),"§")
TPL_Echo "<span style=""width:130px;filter:glow(color='gray',strength='2');"">"&(s(0)&s2&s(1)&"</span>")
Case "userface"
If i>0 Then
TPL_Echo "<img src=""Skins/Default/anyon.gif"" width=""111"" height=""111"" border=""0"" />"
Else
TPL_Echo "<img src=""Skins/Default/guest.gif"" width=""111"" height=""111"" border=""0"" />"
End If
Case Else
End Select
End If
End Sub
Function IsSelfPost()
IsSelfPost=False
If G_ItemList(10, G_Floor)>0 Then
If G_UserList(0, G_ItemList(10, G_Floor)-1)=Dvbbs.UserID Then
IsSelfPost=True
End If
End If
End Function
Function GetPostUserID()
If G_ItemList(10, G_Floor)>0 Then
GetPostUserID=G_UserList(0, G_ItemList(10, G_Floor)-1)
Else
GetPostUserID=0
End If
End Function
Sub ParseBBSListNode(sToken)
Dim i, a, postbuyusers, postbuyinfo, j
Select Case sToken
Case "announceid"
TPL_Echo G_ItemList(0, G_Floor)
Case "title"
TPL_Echo Dvbbs.Replacehtml(Dvbbs.ChkBadWords(G_ItemList(2, G_Floor)))
Case "tyisbest"
Rem 精华帖加盖章,小易
If 1=G_ItemList(9, G_Floor) Then
TPL_Echo "<span class=""isbestcss""></span>"
end If
Case "url"
If 0=G_Floor Then TPL_Echo "<INPUT TYPE=""hidden"" id=""url"" name=""url"" />"
Case "body"
i = G_ItemList(10, G_Floor)
If i>0 Then
i = G_UserList(26, i-1)
Else
i = 7 '客人
End If
If 0=G_Floor And 1=G_CurrentPage And CLng(G_ItemList(20, G_Floor))=0 Then '顶楼需要判断购买帖
If G_LockTopic Then TPL_Echo "<div class=""limitinfo"">贴子已被锁定</div><br/>"
If 3=T_GetMoneyType Then
TPL_Echo "<div class=""limitinfo""><font color=""gray"">以下内容需要支付 <b><font color=""red"">"&G_ItemList(17, G_Floor)&"</font></b> 个金币方可查看，"
If IsSelfPost() Then
TPL_Echo "这是您发的帖子"
ElseIf TrueMaster Then
TPL_Echo "由于您是工作人员，你可以看到内容。"
Else
If Trim(PostBuyUser)="" Then PostBuyUser="0@@@-1@@@0@@@|||$PayMoney|||"
postbuyusers=split(PostBuyUser,"|||")
postbuyinfo=postbuyusers(0)
postbuyinfo=Split(postbuyinfo,"@@@") 'Rem postbuyinfo(0) 收入money postbuyinfo(1) 购买限制maxbuy postbuyinfo(2) vip是否需要购买notvipbuy postbuyinfo(3) 允许购买用户列表buyuser
If UBound(postbuyinfo)<=2 Then Exit Sub
a=False
For j=2 to UBound(postbuyusers)
If postbuyusers(j)<>"" And postbuyusers(j)=Dvbbs.MemberName Then
a=True
End If
Next
If a Then
TPL_Echo "您已经购买。"
ElseIf Dvbbs.VipGroupUser And "1"=postbuyinfo(2) Then
TPL_Echo "由于您是vip用户，并且因为设置了vip用户可免购买查看，您可以直接查看。"
ElseIf (""=postbuyinfo(3) Or InStr(","&postbuyinfo(3)&",", ","&Dvbbs.MemberName&",")>0) And Dvbbs.userid>0 Then
TPL_Echo "您需要购买方可看到内容。</font><br /><input type=""button"" value=""我要查看内容，决定购买"" onclick=""location.href='BuyPost.asp?action=buy&boardid="&Dvbbs.BoardID&"&id="&AnnounceID&"&ReplyID="&G_ItemList(0, G_Floor)&"&PostTable="&TotalUsetable&"'""/>"
TPL_Echo "<br/></div>"
Exit Sub
Else
TPL_Echo "您需要购买方可看到内容。"
If Dvbbs.userid>0 Then
TPL_Echo "楼主设置了您不可以购买。"
Else
TPL_Echo "您还未登录，不能购买。"
End If
TPL_Echo "</font><br/></div>"
Exit Sub
End If
End If
TPL_Echo "</font><br/></div>"
End If
End If
Ubblists=G_ItemList(15, G_Floor)
'增加允许管理员发iframe功能 by 牛头
if Dvbbs.userID<>0 then
If dvbbs.checknumeric(G_ItemList(10, G_Floor))>0 Then Dv_ubb.ismanager1= G_UserList(26, G_ItemList(10, G_Floor)-1)
End If
If InStr(Ubblists,",39,") > 0 Then
TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,0) )
Else
TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,1) )
End If
Case "bodystyle"
TPL_Echo ("font-size:"&Dvbbs.Board_setting(28)&"pt;text-indent:"&Dvbbs.Board_setting(69)&"px;")
Case "floor"
i = G_Moved+G_Floor
TPL_Echo i+1
Case "dateandtime" TPL_Echo G_ItemList(3, G_Floor)
Case "authorid"
If authorid = 0 Then
TPL_Echo "[<a href=""dispbbs.asp?boardid="&Dvbbs.BoardID&"&Id="&AnnounceID&"&authorid="&GetPostUserID()&""">只看该作者</a>]"
Else
TPL_Echo "[<a href=""dispbbs.asp?boardid="&Dvbbs.BoardID&"&Id="&AnnounceID&""">显示全部帖子</a>]"
End If
Case "showpage"
TPL_ShowPage G_CurrentPage, G_Childs, Dvbbs.CheckNumeric(Dvbbs.Board_Setting(27)), 10, "dispbbs.asp?boardid="&Dvbbs.BoardID&"&id="&AnnounceID&"&authorid="&authorid&"&page="&Dvbbs.CheckNumeric(request("page"))&"&star="
Case "bestinfo"
If 1=G_ItemList(9, G_Floor) Then
TPL_Echo "<div class=""info""><img src="""&Dvbbs.Forum_PicUrl&"jing.gif"" border=""0"" title=""本帖被加为精华"" align=""absmiddle""/>[本帖被加为精华]</div>"
End If
Case "bestpic"
If 1=G_ItemList(9, G_Floor) Then
TPL_Echo "<img src=""images/best.gif"" border=""0"" style=""position:absolute;z-index:1;"" title=""精华帖子认证"" align=""absmiddle"" />"
End If
Case "appraise"
If IsNull(G_ItemList(12, G_Floor)) Then Exit Sub
SplitIsAgree
a = G_ItemList(12, G_Floor)
If a(1)>0 Then
TPL_Echo "<div class=""info"">版主评定：<img src="""&Dvbbs.Forum_PicUrl&"agree.gif"" border=""0"" alt=""好评，获得"&a(1)&"个金币奖励"" align=""absmiddle""/>好评，获得<font color=""red"">"&a(1)&"</font>个金币奖励</div>"
If ""<>a(3) Then TPL_Echo "(" & a(3) & ")"
ElseIf a(0)>0 Then
TPL_Echo "<div class=""info"">版主评定：<img src="""&Dvbbs.Forum_PicUrl&"disagree.gif"" border=""0"" alt=""差评，扣除"&a(0)&"个金币"" align=""absmiddle""/>差评，扣除<font color=""red"">"&a(0)&"</font>个金币</div>"
If ""<>a(2) Then TPL_Echo "(" & a(2) & ")"
End If
Case "moneytype" 'modifty by reoaiq at 090922
i = T_GetMoneyType
If 0=i Then Exit Sub
If 0=G_Floor And G_CurrentPage=1 Then
Select Case i
Case 1
If Dvbbs.BoardMaster Then
TPL_Echo "<div class=""info"">悬赏金币帖，要悬赏 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币</div>"
TPL_Echo "<div class=""info""><a href=""BuyPost.asp?Action=Cancel&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"&UserName="&UserName&"&topic="&Dvbbs.Replacehtml(Dvbbs.ChkBadWords(G_ItemList(2, G_Floor)))&""" title=""取消金币帖"" target=""_blank"">取消金币帖</a></div>"
Else
TPL_Echo "<div class=""info"">悬赏金币帖，要悬赏 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币</div>"
End If
Case 5
If Dvbbs.BoardMaster Then
TPL_Echo "<div class=""info"">悬赏金币帖，要悬赏 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币[已结帖]</div>"
TPL_Echo "<div class=""info""><a href=""BuyPost.asp?Action=Cancel&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"&UserName="&UserName&"&topic="&Dvbbs.Replacehtml(Dvbbs.ChkBadWords(G_ItemList(2, G_Floor)))&""" title=""取消金币帖"" target=""_blank"">取消金币帖</a></div>"
Else
TPL_Echo "<div class=""info"">悬赏金币帖，要悬赏 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币[已结帖]</div>"
End If
Case 2
If Dvbbs.BoardMaster Then
TPL_Echo "<div class=""info"">获赠金币帖，共获得 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币</div>"
TPL_Echo "<div class=""info""><a href=""BuyPost.asp?Action=Cancel&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"&UserName="&UserName&"&topic="&Dvbbs.Replacehtml(Dvbbs.ChkBadWords(G_ItemList(2, G_Floor)))&""" title=""取消金币帖"" target=""_blank"">取消金币帖</a></div>"
Else
TPL_Echo "<div class=""info"">获赠金币帖，共获得 <font color=""red"">" & G_ItemList(17, G_Floor) & "</font> 个金币</div>"
End If
Case 3
If Dvbbs.BoardMaster Then
TPL_Echo "<div class=""info""><a href=""BuyPost.asp?Action=Cancel&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"&UserName="&UserName&"&topic="&Dvbbs.Replacehtml(Dvbbs.ChkBadWords(G_ItemList(2, G_Floor)))&""" title=""取消金币帖"" target=""_blank"">取消金币帖</a></div>"
End If
Case Else
End Select
Else
If (1=i Or 5=i) And G_ItemList(10, G_Floor)>0 Then
If G_UserList(0, G_ItemList(10, G_Floor)-1)<>PostUserid Then
TPL_Echo "<div class=""info"">获得<font color=""red"">" & G_ItemList(17, G_Floor) & "</font>个金币</div>"
End If
End If
If 1=i And PostUserid=Dvbbs.UserID And G_ItemList(10, G_Floor)>0 Then
If G_UserList(0, G_ItemList(10, G_Floor)-1)<>Dvbbs.UserID Then
TPL_Echo "<div class=""info""><a href=""BuyPost.asp?Action=Send&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"&UserName="&UserName&""" title=""悬赏金币给会员"&UserName&""" target=""_blank"">悬赏金币</a></div>"
End If
End If
If 2=i Then TPL_Echo "<span class=""info"">赠送楼主:<font color=""red"">" & G_ItemList(17, G_Floor) & "</font>个金币</span>"
End If
Case "usetools"
If ""<>G_ItemList(18, G_Floor) Or (0<T_GetMoneyType And (G_Moved+G_Floor)=0) Then
TPL_Echo "<hr /><a href=""javascript:;"" onclick=""openScript('ViewInfo.asp?t=2&action=View&PostTable="&TotalUsetable&"&BoardId="&Dvbbs.BoardID&"&ID="&AnnounceID&"&ReplyID="&ReplyID_a&"',600,450)""><img src="""&Dvbbs.Forum_PicUrl&"mini_query.gif"" border=""0"" alt=""查看使用道具详细信息"" class=""imgonclick"" /></a>"
End If
Case "topicface"
TPL_Echo G_ItemList(5, G_Floor)
Case "ip"
If "1"=Dvbbs.GroupSetting(30) And (TrueMaster Or 3<>Dvbbs.UserGroupID) Then TPL_Echo " Post IP：<a href=""TopicOther.asp?t=1&boardid="&Dvbbs.Boardid&"&userid="&GetPostUserID()&"&ip="&G_ItemList(6, G_Floor)&"&action=lookip"" title=""点击查看用户来源及管理"">"&G_ItemList(6, G_Floor)&"</a>"
Case "magicface"
If 0=G_Floor And G_CurrentPage=1 And Skin=0 Then
i=InStr(G_Expression,"|")
If i>0 Then
a=Left(G_Expression, i-1)
If "0"<>a Then
TPL_Echo "<div style=""float:right;margin-right:20px;""><a href=""javascript:DispMagicEmot("&a&",350,500)""><img src=""dv_plus/tools/magicface/gif/"&a&".gif"" border=""0"" alt=""""/><br /><br/></a></div><script type=""text/javascript"" language=""javascript"">LoadMagicEmot("&a&","&AnnounceID&");</script>"
End If
End If
End If
Case "adminlist"
i=GetPostUserID()
TPL_Echo "<span class=""m_li_top"" style=""display:inline;"" onmouseover=""showmenu1('Menu_"&ReplyID_a&"',0);""><a href=""#"">单帖管理</a>"
TPL_Echo " <div class=""submenu submunu_popup"" id=""Menu_"&ReplyID_a&""" onmouseout=""hidemenu1()"">"
TPL_Echo " <a href=""TopicOther.asp?t=6&BoardID="&Dvbbs.boardid&"&id="&AnnounceID&"&ReplyID="&ReplyID_a&""">举报帖子</a><br />"
If Dvbbs.Boardmaster Then
If G_Floor>0 Or G_CurrentPage>1 Then
TPL_Echo " <a href=""admin_postings.asp?action=dele_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star=1&userid="&i&""">删除单帖</a><br />"
End If
TPL_Echo " <a href=""admin_postings.asp?action=copy_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star=1&userid="&i&""">复制帖子</a><br />"
If 0=G_ItemList(9,G_Floor) Then
TPL_Echo "<a href=""admin_postings.asp?action=isbest_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star=1&userid="&i&""">加为精华</a><br />"
Else
TPL_Echo "<a href=""admin_postings.asp?action=nobest_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star="&G_CurrentPage&"&userid="&GetPostUserID()&""">解除精华</a><br/>"
End If
Select Case G_ItemList(16,G_Floor)
Case 2
TPL_Echo "<a href=""admin_postings.asp?action=nolockpage_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star="&G_CurrentPage&"&userid="&GetPostUserID()&""">解除屏蔽</a><br />"
Case 3
TPL_Echo "<a href=""AccessTopic.asp?action=unlock&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&""">审核通过</a><br />"
Case Else
TPL_Echo "<a href=""admin_postings.asp?action=islockpage_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star="&G_CurrentPage&"&userid="&GetPostUserID()&""">单帖屏蔽</a><br />"
End Select
TPL_Echo " <a href=""admin_postings.asp?action=RewardMoney&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star=1"" title=""好评或差评，可奖励或扣除该帖用户相关分值"">版主评定</a><br />"
Else
If ((G_Floor>0 Or G_CurrentPage>1) And IsSelfPost() And "1"=Dvbbs.GroupSetting(11)) Then
TPL_Echo " <a href=""admin_postings.asp?action=dele_a&BoardID="&Dvbbs.boardid&"&replyID="&ReplyID_a&"&ID="&AnnounceID&"&star=1&userid="&i&""">删除单帖</a><br />"
End If
End If
If "1"=Dvbbs.Forum_Setting(90) Then TPL_Echo " <a title=""对本帖使用论坛道具"" href=""javascript:openScript('plus_Tools_InfoSetting.asp?action=0&BoardID="&Dvbbs.boardid&"&TopicID="&AnnounceID&"&ReplyID="&ReplyID_a&"',500,400)"">使用道具</a><br />"
TPL_Echo " </div></span>"
Case Else
End Select
End Sub
Sub SplitIsAgree()
Dim a : a = G_ItemList(12, G_Floor)
If Not IsArray(a) Then
a = Split(G_ItemList(12, G_Floor), "|")
If UBound(a)<6 Then
If UBound(a)<1 Then
a = Split("0|0|||0|0|0","|")
Else
a = Split(G_ItemList(12, G_Floor)&"|||0|0|0","|")
End If
End If
G_ItemList(12, G_Floor) = a
End If
End Sub
Function Topic_Ads(n)
Randomize
Topic_Ads=Dvbbs.Forum_ads(n)(CInt(UBound(Dvbbs.Forum_ads(n))*Rnd))
End Function
Sub ParseADNode(sToken)
If 0=G_Floor And UBound(Dvbbs.Forum_ads)>23 Then
Select Case sToken
Case "first_body_top"
If "1"=Dvbbs.Forum_ads(18) Then
Dvbbs.Forum_ads(19)=Split(Dvbbs.Forum_ads(19), "#####")
TPL_Echo "<div class=""first_body_top"">"&Topic_Ads(19)&"</div>"
End If
Case "first_body_bottom"
If "1"=Dvbbs.Forum_ads(20) Then
Dvbbs.Forum_ads(21)=Split(Dvbbs.Forum_ads(21), "#####")
TPL_Echo "<div class=""first_body_bottom"">"&Topic_Ads(21)&"</div>"
End If
Case "first_body_left"
If "1"=Dvbbs.Forum_ads(22) Then
Dvbbs.Forum_ads(23)=Split(Dvbbs.Forum_ads(23), "#####")
TPL_Echo "<div class=""first_body_left"">"&Topic_Ads(23)&"</div>"
End If
Case "first_body_right"
If "2"=Dvbbs.Forum_ads(22) Then
Dvbbs.Forum_ads(23)=Split(Dvbbs.Forum_ads(23), "#####")
TPL_Echo "<div class=""first_body_right"">"&Topic_Ads(23)&"</div>"
End If
Case Else
End Select
End If
Select Case sToken
Case "bbslist_bottom"
If "1"=Dvbbs.Forum_ads(7) Then TPL_Echo Topic_Ads(14)
Case Else
End Select
End Sub
Sub TPL_ParseNode(sTokenType, sTokenName)
Select Case sTokenType
Case "page"
ParsePageNode sTokenName
Case "user"
ParseUserNode sTokenName
Case "bbslist"
ParseBBSListNode sTokenName
Case "ad"
ParseADNode sTokenName
Case "qcomic_plus"
DIM Qcomic_setting, codeStr
Qcomic_setting = Split(Dvbbs.qcomic_plus_setting(), "||||")
codeStr = "phid="&Trim(G_ItemList(21, G_Floor))&"&spassword="&Qcomic_setting(2)&"&ctime="&Now()
Select Case sTokenName
Case "qcomic_enable" : TPL_Echo "true"
Case "qcomic_sid" : TPL_Echo Qcomic_setting(1)
Case "qcomic_sid_phid" : TPL_Echo Qcomic_setting(1)&"_"&Trim(G_ItemList(21, G_Floor))
Case "qcomic_auto" : TPL_Echo "0"
Case "qcomic_code" : TPL_Echo Server.UrlEncode(AuthCode(codeStr, "ENCODE",Qcomic_setting(3)))
Case "qcomic_owidth" : TPL_Echo Qcomic_setting(4)
Case "qcomic_oheight" : TPL_Echo Qcomic_setting(5)
End Select
End Select
End Sub
Sub TPL_ParseArea(sTokenName, sTemplate)
Dim iUbd,sTemp
Select Case sTokenName
Case "bbslist"
iUbd = UBound(G_ItemList, 2)
If "1"=Dvbbs.Forum_ads(7) Then Dvbbs.Forum_ads(14)=Split(Dvbbs.Forum_ads(14),"#####")
For G_Floor=0 To iUbd
'下面几个赋值用在dv_ubbcode.asp
RootID_a = G_ItemList(7, G_Floor)
AnnounceID_a= RootID_a
ReplyID_a = G_ItemList(0, G_Floor)
UserName = G_ItemList(1, G_Floor)
PostBuyUser = G_ItemList(19, G_Floor)
TPL_Scan sTemplate
Next
Case "userinfo"
If G_ItemList(10, G_Floor)>0 Then
If 2<>G_ItemList(8, G_Floor) Or Dvbbs.BoardMaster Or _
Dvbbs.UserID=G_UserList(0, G_ItemList(10, G_Floor)-1) Then TPL_Scan sTemplate
End If
Case "boke"
If 1=Dvbbs.Forum_setting(99) Then TPL_Scan sTemplate
Case "bbslimit"
sTemp=""
If 1=G_ItemList(9, G_Floor) Then
If "1"<>Dvbbs.GroupSetting(41) Then sTemp="<div class=""limitinfo"">您无权查看精华帖子</div>"
Else
Select Case G_ItemList(16, G_Floor)
Case 2 sTemp="<div class=""limitinfo"">内容被屏蔽</div>"
Case 3 sTemp="<div class=""limitinfo"">内容待审核</div>"
Case Else
If G_ItemList(10, G_Floor)>0 Then
Select Case G_UserList(13, G_ItemList(10, G_Floor)-1)
Case 1 sTemp="<div class=""limitinfo"">用户已被锁定</div>"
Case 2 sTemp="<div class=""limitinfo"">用户已经被屏蔽</div>"
Case Else
End Select
End If
End Select
End If
If ""<>sTemp Then
TPL_Echo sTemp
End If
If ""=sTemp Or TrueMaster Or (Dvbbs.Boardmaster And 3<>Dvbbs.UserGroupID) Then
TPL_Scan sTemplate
End If
Case "qcomic_plus"
If Dvbbs.qcomic_plus Then
If Trim(G_ItemList(21, G_Floor))<>"" And Trim(G_ItemList(21, G_Floor))<>"0" Then
TPL_Scan sTemplate
End If
End If
Case "logined"
If Dvbbs.userid>0 Then TPL_Scan sTemplate
Case "showvote"
If G_IsVote>0 And 1=G_CurrentPage Then LoadAndParseVote sTemplate
Case "canreply"
If G_CanReply Then TPL_Scan sTemplate
Case "canedit"
If (IsSelfPost() And Dvbbs.GroupSetting(10)="1") Or Dvbbs.boardmaster Then TPL_Scan sTemplate
Case "tenpay"
If Dvbbs.Board_Setting(67)=1 Then TPL_Scan sTemplate
End Select
End Sub
Dvbbs.Footer
Dvbbs.PageEnd
%>